home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 11 / CU Amiga Magazine's Super CD-ROM 11 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-06].iso / cucd / programming / stormwizard-demo / include / asm / wizard.i < prev   
Text File  |  1996-05-25  |  13KB  |  551 lines
  1.  
  2.             IFND    WIZARD_WIZARD_I
  3. WIZARD_WIZARD_I        EQU    1
  4.  
  5.             IFND LIBRARIES_GADTOOLS_I
  6.             INCLUDE    'libraries/gadtools.i'
  7.             ENDC
  8.  
  9. *---------------------------------------------------------
  10. *-------       V 37 or higher (Release 1.0)       --------
  11. *-------      written by Thomas Mittelsdorf       --------
  12. *-------   © 1996 HAAGE & PARTNER Computer GmbH   --------
  13. *---------------------------------------------------------
  14.  
  15. ; Diese Konstanten dürfen überall benutzt werden, wo die
  16. ; Library Farbregister erwartet.
  17.  
  18. WZRD_TEXTPEN        EQU    TEXTPEN+(1<<15)
  19. WZRD_SHINEPEN        EQU    SHINEPEN+(1<<15)
  20. WZRD_SHADOWPEN        EQU    SHADOWPEN+(1<<15)
  21. WZRD_FILLPEN        EQU    FILLPEN+(1<<15)
  22. WZRD_FILLTEXTPEN    EQU    FILLTEXTPEN+(1<<15)
  23. WZRD_BACKGROUNDPEN    EQU    BACKGROUNDPEN+(1<<15)
  24. WZRD_HIGHLIGHTTEXTPEN    EQU    HIGHLIGHTTEXTPEN+(1<<15)
  25. WZRD_BARDETAILPEN    EQU    BARDETAILPEN+(1<<15)    (OS V39)
  26. WZRD_BARBLOCKPEN    EQU    BARBLOCKPEN+(1<<15)    (OS V39)
  27. WZRD_BARTRIMPEN        EQU    BARTRIMPEN+(1<<15)    (OS V39)
  28.  
  29. ;---------------------------------------------------------
  30.  
  31. ; FrameTypes
  32.  
  33. WZRDFRAME_NONE        EQU    0
  34. WZRDFRAME_ICON        EQU    1
  35. WZRDFRAME_BUTTON    EQU    2
  36. WZRDFRAME_STRING    EQU    3
  37. WZRDFRAME_DOUBLEICON    EQU    4
  38. WZRDFRAME_SICON        EQU    5
  39. WZRDFRAME_SBUTTON    EQU    6
  40. WZRDFRAME_SSTRING    EQU    7
  41. WZRDFRAME_SDOUBLEICON    EQU    8
  42.  
  43. ;---------------------------------------------------------
  44. ; Textplazierungen
  45. WZRDPLACE_LEFT        EQU    PLACETEXT_LEFT
  46. WZRDPLACE_RIGHT        EQU    PLACETEXT_RIGHT
  47. WZRDPLACE_CENTER    EQU    PLACETEXT_IN
  48.  
  49. ;---------------------------------------------------------
  50.  
  51. WARROW_LEFT        EQU    0
  52. WARROW_RIGHT        EQU    1
  53. WARROW_UP        EQU    2
  54. WARROW_DOWN        EQU    3
  55.  
  56. ;---------------------------------------------------------
  57.  
  58. WGHF_IgnoreOS        EQU    1
  59. WGHF_FullControl    EQU    2
  60.  
  61. ;---------------------------------------------------------
  62. ; WizardNode
  63.             rsreset
  64. wn_Node            rs.b    MLN_SIZE
  65. wn_Entrys        rs.b    1
  66. wn_Flags        rs.b    1
  67. wn_Intern        rs.b    38
  68. wn_SIZE            rs    0
  69.  
  70. ;---------------------------------------------------------
  71. ; StandardNode für ListView und Hierarchy
  72.             rsreset
  73. wdn_WizardNode        rs.b    wn_SIZE
  74. wdn_Intern        rs.b    24
  75. wdn_SIZE        rs    0
  76.  
  77. ;---------------------------------------------------------
  78.  
  79.             rsreset
  80.             rs.b    MLN_SIZE
  81. wwh_Window        rs.l    1
  82. wwh_MenuStrip        rs.l    1
  83. wwh_DrawInfo        rs.l    1
  84. wwh_VisualInfo        rs.l    1
  85. wwh_ScreenTitle        rs.l    1
  86. wwh_SizeImageWidth    rs.w    1
  87. wwh_SizeImageHeight    rs.w    1
  88. wwh_Objects        rs.b    MLH_SIZE
  89. wwh_RootGadget        rs.l    1
  90. wwh_RootTopGadget    rs.l    1
  91. wwh_RootLeftGadget    rs.l    1
  92. wwh_RootBottomGadget    rs.l    1
  93. wwh_RootRightGadget    rs.l    1
  94. wwh_UserStruct        rs.l    1
  95. wwh_SIZE        rs    0
  96.  
  97. ; Der ganze Aufbau der WindowHandle-Struktur ist nicht beschrieben.
  98. ; Es sind alle Felder vom Type ReadOnly !
  99. ; Sollte das Fenster geschlossen sein, dann ist der Window-Eintrag
  100. ; mit NULL besetzt.
  101. ; Die MinNode-Struktur dient der Library zur internen Verkettung und
  102. ; ist damit für den Programmierer NICHT nutzbar.
  103. ; Möchten Sie ihre WindowHandles selbst verketten, dann sollten Sie
  104. ; in die private Struktur eine MinNode-Struktur einbauen !
  105. ; siehe WZ_AllocWindowHandle()
  106.  
  107. ;---------------------------------------------------------
  108.  
  109.             rsreset
  110. wni_Flags        rs.w    1
  111. wni_Name        rs.w    1
  112. wni_Width        rs.w    1
  113. wni_Height        rs.w    1
  114. wni_Depth        rs.w    1    Anzahl der Farben = 2^x
  115. wni_Compression        rs.w    1
  116. wni_Reserved        rs.l    1
  117. wni_ColorLength        rs.l    1    Größe der Farbtabelle
  118. wni_ImageLength        rs.l    1
  119. wni_SIZE        rs    0
  120. ; ab hier folgen die Grafikdaten
  121.             
  122.             BITDEF    WI,Interleaved,2
  123.             BITDEF    WI,Standard,3
  124.  
  125. ;---------------------------------------------------------
  126.  
  127.             rsreset
  128. wvi_Flags        rs.w    1
  129. wvi_Counter        rs.w    1
  130. wvi_MinWidth        rs.w    1
  131. wvi_MinHeight        rs.w    1
  132. wvi_RelCoords        rs.l    1
  133. wvi_SIZE        rs    0
  134.  
  135. ; ab hier folgen weitere Zeiger auf die Image-Beschreibung
  136.  
  137.             BITDEF    WVI,MinWidth,0
  138.             BITDEF    WVI,MinHeight,1
  139.             BITDEF    WVI,AreaInit,2
  140.             BITDEF    WVI,Recursion,3
  141.  
  142. ;-----------------------------------------------------------
  143.  
  144.             ENUM
  145.             EITEM    WVICMD_END
  146.             EITEM    WVICMD_COLOR
  147.             EITEM    WVICMD_COLOR2
  148.             EITEM    WVICMD_MOVE    
  149.             EITEM    WVICMD_DRAW
  150.             EITEM    WVICMD_RECTFILL
  151.             EITEM    WVICMD_WRITEPIXEL
  152.             EITEM    WVICMD_IMAGE
  153.             EITEM    WVICMD_TEXT
  154.             EITEM    WVICMD_SETDRMD
  155.             EITEM    WVICMD_TEXTIMAGE
  156.             EITEM    WVICMD_TEXTMOVE
  157.             EITEM    WVICMD_TAGCOLOR
  158.             EITEM    WVICMD_TEXTPLACE
  159.             EITEM    WVICMD_SETAFPT
  160.             EITEM    WVICMD_SNAPCURSOR
  161.             EITEM    WVICMD_SNAPX
  162.             EITEM    WVICMD_SNAPY
  163.             EITEM    WVICMD_TAGMOVE
  164.             EITEM    WVICMD_TAGIMAGE
  165.             EITEM    WVICMD_BITMAP_TO_RP
  166.             EITEM    WVICMD_FILLBORDER
  167.             EITEM    WVICMD_BEEP
  168.             EITEM    WVICMD_AREAINIT
  169.             EITEM    WVICMD_AREAMOVE
  170.             EITEM    WVICMD_AREADRAW
  171.             EITEM    WVICMD_AREAEND
  172.  
  173. ******************************************************************
  174.  
  175. ; GadgetArten
  176.             ENUM
  177.             EITEM    WCLASS_LAYOUT
  178.             EITEM    WCLASS_HGROUP
  179.             EITEM    WCLASS_VGROUP
  180.             EITEM    WCLASS_BUTTON
  181.             EITEM    WCLASS_STRING
  182.             EITEM    WCLASS_LABEL
  183.             EITEM    WCLASS_CHECKBOX
  184.             EITEM    WCLASS_MX
  185.             EITEM    WCLASS_INTEGER
  186.             EITEM    WCLASS_HSCROLLER
  187.             EITEM    WCLASS_VSCROLLER
  188.             EITEM    WCLASS_ARROW
  189.             EITEM    WCLASS_LISTVIEW
  190.             EITEM    WCLASS_MULTILISTVIEW
  191.             EITEM    WCLASS_TOGGLE
  192.             EITEM    WCLASS_LINE
  193.             EITEM    WCLASS_COLORFIELD
  194.             EITEM    WCLASS_ARGS
  195.             EITEM    WCLASS_GAUGE
  196.             EITEM    WCLASS_CYCLE
  197.             EITEM    WCLASS_VECTORBUTTON
  198.             EITEM    WCLASS_DATE
  199.             EITEM    WCLASS_SPACE
  200.             EITEM    WCLASS_IMAGE
  201.             EITEM    WCLASS_IMAGEBUTTON
  202.             EITEM    WCLASS_IMAGETOGGLE
  203.             EITEM    WCLASS_IMAGEPOPUP
  204.             EITEM    WCLASS_TEXTPOPUP
  205.             EITEM    WCLASS_PALETTE
  206.             EITEM    WCLASS_VECTORPOPUP
  207.             EITEM    WCLASS_HIERARCHY
  208.             EITEM    WCLASS_HSLIDER
  209.             EITEM    WCLASS_VSLIDER
  210.             EITEM    WCLASS_LAST
  211.  
  212. WCLASS_GROUPEND        EQU    WCLASS_LAYOUT
  213.  
  214. ;---------------------------------------------------------
  215.  
  216. WZRD_TagDummy        EQU    TAG_USER+$180000
  217.  
  218. ;---------------------------------------------------------
  219.  
  220.             ENUM    WZRD_TagDummy+100
  221.             
  222.             EITEM    WVIA_Text
  223.             EITEM    WVIA_TextFont
  224.             EITEM    WVIA_TextPlace
  225.             EITEM    WVIA_TextPen
  226.             EITEM    WVIA_TextStyles
  227.             EITEM    WVIA_TextHighlights
  228.             EITEM    WVIA_TextImages
  229.             
  230.             EITEM    WVIA_TagImage
  231.             EITEM    WVIA_TagImageCode
  232.             
  233.             EITEM    WVIA_ImageCode
  234.             
  235.             EITEM    WVIA_Color0
  236.             EITEM    WVIA_Color1
  237.             EITEM    WVIA_Color2
  238.             EITEM    WVIA_Color3
  239.             EITEM    WVIA_Color4
  240.             EITEM    WVIA_Color5
  241.             EITEM    WVIA_Color6
  242.             EITEM    WVIA_Color7
  243.  
  244.             EITEM    WVIA_TPoint0
  245.             EITEM    WVIA_TPoint1
  246.             EITEM    WVIA_TPoint2
  247.             EITEM    WVIA_TPoint3
  248.             EITEM    WVIA_TPoint4
  249.             EITEM    WVIA_TPoint5
  250.             EITEM    WVIA_TPoint6
  251.             EITEM    WVIA_TPoint7
  252.             
  253.             EITEM    WVIA_AreaPtrn
  254.  
  255.             EITEM    WVIA_TmpRas
  256.             
  257.             EITEM    WVIA_BitMapWidth
  258.             EITEM    WVIA_BitMapHeight
  259.             EITEM    WVIA_BitMap0
  260.             EITEM    WVIA_BitMap1
  261.             EITEM    WVIA_BitMap2
  262.             EITEM    WVIA_BitMap3
  263.             EITEM    WVIA_BitMap4
  264.             EITEM    WVIA_BitMap5
  265.             EITEM    WVIA_BitMap6
  266.             EITEM    WVIA_BitMap7
  267.             
  268.             EITEM    WVIA_PureText    (def FALSE)
  269.             
  270. ;---------------------------------------------------------
  271.  
  272.             ENUM    WZRD_TagDummy+200
  273.             
  274.             EITEM    SFH_Locale
  275.             EITEM    SFH_Catalog
  276.             EITEM    SFH_AutoInit
  277.  
  278. ;---------------------------------------------------------
  279.  
  280.             ENUM    WZRD_TagDummy+300
  281.  
  282.             EITEM    WWH_GadgetArray
  283.             EITEM    WWH_GadgetArraySize
  284.             EITEM    WWH_PreviousGadget
  285.             EITEM    WWH_StringHook
  286.             EITEM    WWH_StackSize
  287.  
  288. ;---------------------------------------------------------
  289. ; Flags in WGA_Flags
  290.  
  291.             BITDEF    WG,GadgetHelp,1
  292.             BITDEF    WG,Immediate,2
  293.             BITDEF    WG,Disabled,8
  294.             BITDEF    WG,KeyControl,9
  295.             BITDEF    WGRP,EqualSize,15
  296.             BITDEF    WGRP,DockMode,14
  297.             BITDEF    WSPC,Transparent,15
  298.             BITDEF    WTG,SimpleMode,15
  299.             BITDEF    WLV,ReadOnly,15
  300.             BITDEF    WLV,DoubleClicks,14
  301.             BITDEF    WSC,NewLook,15
  302.             BITDEF    WIT,SimpleMode,15
  303.             BITDEF    WIP,NewLook,15
  304.             BITDEF    WTP,NewLook,15
  305.             BITDEF    WVP,NewLook,15
  306.             BITDEF    WHR,DoubleClicks,14
  307.             BITDEF    WSL,NewLook,15
  308.  
  309. ;---------------------------------------------------------
  310.  
  311.             ENUM    WZRD_TagDummy+400
  312. ; alle folgenden Tags sind Universal-Tags
  313.  
  314.             EITEM    WGA_Label
  315.             EITEM    WGA_Label2
  316.             EITEM    WGA_TextFont
  317.             EITEM    WGA_Flags
  318.             EITEM    WGA_Priority
  319.             EITEM    WGA_RelHeight
  320.             EITEM    WGA_MinWidth
  321.             EITEM    WGA_MinHeight
  322.             EITEM    WGA_Link
  323.             EITEM    WGA_LinkData
  324.             EITEM    WGA_HelpText
  325.             EITEM    WGA_Config
  326.             EITEM    WGA_NewImage
  327.             EITEM    WGA_SelNewImage
  328.             EITEM    WGA_Group
  329.             EITEM    WGA_GroupPage
  330.             EITEM    WGA_Locale
  331.             EITEM    WGA_Screen
  332.             EITEM    WGA_Bounds
  333.             
  334. ;---------------------------------------------------------
  335.  
  336.             ENUM    WZRD_TagDummy+450
  337.             EITEM    WNOTIFYA_Type
  338.  
  339. ;---------------------------------------------------------
  340.  
  341.             ENUM    WZRD_TagDummy+500
  342.             
  343.             EITEM    WGROUPA_ActivePage
  344.             EITEM    WGROUPA_MaxPage
  345.             EITEM    WGROUPA_HBorder
  346.             EITEM    WGROUPA_VBorder
  347.             EITEM    WGROUPA_BHOffset
  348.             EITEM    WGROUPA_BVOffset
  349.             EITEM    WGROUPA_Space
  350.             EITEM    WGROUPA_VarSpace
  351.             EITEM    WGROUPA_FrameType
  352.  
  353.             EITEM    WSTRINGA_MaxChars
  354.             EITEM    WSTRINGA_String
  355.  
  356.             EITEM    WCHECKBOXA_Checked
  357.  
  358.             EITEM    WMXA_Active
  359.             EITEM    WGROUPA_HighLights
  360.             EITEM    WGROUPA_HighlightPen
  361.  
  362.             EITEM    WLABELA_FrameType
  363.             EITEM    WLABELA_Space
  364.             EITEM    WLABELA_BGPen
  365.             EITEM    WLABELA_TextPlace
  366.             EITEM    WLABELA_Lines
  367.  
  368.             EITEM    WINTEGERA_Long
  369.             EITEM    WINTEGERA_MinLong
  370.             EITEM    WINTEGERA_MaxLong
  371.             
  372.             EITEM    WSCROLLERA_Top
  373.             EITEM    WSCROLLERA_Visible
  374.             EITEM    WSCROLLERA_Total
  375.  
  376.             EITEM    WSTRINGA_Justification
  377.             EITEM    WINTEGERA_Justification
  378.  
  379.             EITEM    WARROWA_Type
  380.             
  381.             EITEM    WLISTVIEWA_Unused7
  382.             EITEM    WLISTVIEWA_Unused
  383.             EITEM    WLISTVIEWA_Unused2
  384.             EITEM    WLISTVIEWA_Unused3
  385.             EITEM    WLISTVIEWA_Unused4
  386.             EITEM    WLISTVIEWA_Top
  387.             EITEM    WLISTVIEWA_Selected
  388.             EITEM    WLISTVIEWA_List
  389.             EITEM    WLISTVIEWA_Unused6
  390.             EITEM    WLISTVIEWA_Visible
  391.             EITEM    WLISTVIEWA_DoubleClick
  392.             
  393.             EITEM    WTOGGLEA_Checked
  394.             
  395.             EITEM    WLINEA_Type
  396.             EITEM    WLINEA_Label
  397.  
  398.             EITEM    WCOLORFIELDA_Pen
  399.  
  400.             EITEM    WARGSA_TextPlace
  401.             EITEM    WARGSA_FrameType
  402.             EITEM    WARGSA_Arg0
  403.             EITEM    WARGSA_Arg1
  404.             EITEM    WARGSA_Arg2
  405.             EITEM    WARGSA_Arg3
  406.             EITEM    WARGSA_Arg4
  407.             EITEM    WARGSA_Arg5
  408.             EITEM    WARGSA_Arg6
  409.             EITEM    WARGSA_Arg7
  410.             EITEM    WARGSA_Arg8
  411.             EITEM    WARGSA_Arg9
  412.             
  413.             EITEM    WGAUGEA_Total
  414.             EITEM    WGAUGEA_Current
  415.             EITEM    WGAUGEA_Format
  416.             
  417.             EITEM    WCYCLEA_Active
  418.             EITEM    WCYCLEA_Labels
  419.             
  420.             EITEM    WARROWA_Step
  421.             EITEM    WVECTORBUTTONA_Type
  422.  
  423.             EITEM    WDATEA_Day
  424.             EITEM    WDATEA_Month
  425.             EITEM    WDATEA_Year
  426.  
  427.             EITEM    WARGSA_Format
  428.             EITEM    WLABELA_HighlightPen
  429.             
  430.             EITEM    WBUTTONA_Label
  431.  
  432.             EITEM    WLABELA_HighLights
  433.             EITEM    WLABELA_Label
  434.  
  435.             EITEM    WIMAGEA_BGPen
  436.             EITEM    WIMAGEA_FrameType
  437.             EITEM    WIMAGEA_HBorder
  438.             EITEM    WIMAGEA_VBorder
  439.             EITEM    WIMAGEA_NewImage
  440.             
  441.             EITEM    WIMAGEBUTTONA_BGPen
  442.             EITEM    WIMAGEBUTTONA_SelBGPen
  443.             EITEM    WIMAGEBUTTONA_FrameType
  444.             EITEM    WIMAGEBUTTONA_HBorder
  445.             EITEM    WIMAGEBUTTONA_VBorder
  446.             EITEM    WIMAGEBUTTONA_NewImage
  447.             EITEM    WIMAGEBUTTONA_SelNewImage
  448.  
  449.             EITEM    WIMAGETOGGLEA_BGPen
  450.             EITEM    WIMAGETOGGLEA_SelBGPen
  451.             EITEM    WIMAGETOGGLEA_FrameType
  452.             EITEM    WIMAGETOGGLEA_HBorder
  453.             EITEM    WIMAGETOGGLEA_VBorder
  454.             EITEM    WIMAGETOGGLEA_NewImage
  455.             EITEM    WIMAGETOGGLEA_SelNewImage
  456.             EITEM    WIMAGETOGGLEA_Checked
  457.  
  458.             EITEM    WSTRINGA_Hook
  459.             
  460.             EITEM    WSPACEA_Unused            Pen
  461.             
  462.             EITEM    WIMAGEPOPUPA_BGPen
  463.             EITEM    WIMAGEPOPUPA_FrameType
  464.             EITEM    WIMAGEPOPUPA_HBorder
  465.             EITEM    WIMAGEPOPUPA_VBorder
  466.             EITEM    WIMAGEPOPUPA_TextPlace
  467.             EITEM    WIMAGEPOPUPA_NewImage
  468.             EITEM    WIMAGEPOPUPA_Labels
  469.             EITEM    WIMAGEPOPUPA_Selected
  470.  
  471.             EITEM    WTEXTPOPUPA_TextPlace
  472.             EITEM    WTEXTPOPUPA_Labels
  473.             EITEM    WTEXTPOPUPA_Selected
  474.             EITEM    WTEXTPOPUPA_Name
  475.                         
  476.             EITEM    WPALETTEA_Colors
  477.             EITEM    WPALETTEA_Selected
  478.             EITEM    WPALETTEA_Offset
  479.             
  480.             EITEM    WGROUPA_BGPen
  481.             EITEM    WGROUPA_DockMinVisible
  482.             EITEM    WGROUPA_Styles
  483.             
  484.             EITEM    WLABELA_Styles
  485.                         
  486.             EITEM    WVECTORPOPUPA_Type
  487.             EITEM    WVECTORPOPUPA_Labels
  488.             EITEM    WVECTORPOPUPA_TextPlace
  489.             EITEM    WVECTORPOPUPA_Selected
  490.             
  491.             EITEM    WHIERARCHYA_Unused4
  492.             EITEM    WHIERARCHYA_ImageType
  493.             EITEM    WHIERARCHYA_ImageWidth
  494.             EITEM    WHIERARCHYA_Top
  495.             EITEM    WHIERARCHYA_List
  496.             EITEM    WHIERARCHYA_Selected
  497.             EITEM    WHIERARCHYA_Visible
  498.             EITEM    WHIERARCHYA_DoubleClick
  499.             EITEM    WHIERARCHYA_Unused2
  500.             EITEM    WHIERARCHYA_Unused3
  501.             EITEM    WHIERARCHYA_Unused5
  502.  
  503.             EITEM    WSLIDERA_Min
  504.             EITEM    WSLIDERA_Max
  505.             EITEM    WSLIDERA_Level
  506.  
  507.             EITEM    WTOGGLEA_Label
  508.  
  509.             EITEM    WLAYOUTA_RootGadget
  510.             EITEM    WLAYOUTA_Type
  511.             EITEM    WLAYOUTA_BorderLeft
  512.             EITEM    WLAYOUTA_BorderRight
  513.             EITEM    WLAYOUTA_BorderTop
  514.             EITEM    WLAYOUTA_BorderBottom
  515.             EITEM    WLAYOUTA_StackSwap
  516.             
  517.             EITEM    WARGSA_TextPen
  518.             EITEM    WARGSA_BackgroundPen
  519.             
  520. ;---------------------------------------------------------
  521.  
  522.             ENUM    WZRD_TagDummy+1000
  523.             
  524.             EITEM    WNODEA_Flags
  525.  
  526. WNF_SELECTED        EQU    1<<0
  527. WNF_TREE        EQU    1<<5
  528. WNF_AUTOMATIC        EQU    1<<6
  529. WNF_VISIBLE        EQU    1<<7
  530.  
  531. ;---------------------------------------------------------
  532.  
  533.             ENUM    WZRD_TagDummy+1100
  534.             
  535.             EITEM    WENTRYA_Type
  536.             EITEM    WENTRYA_TextPen
  537.             EITEM    WENTRYA_TextSPen
  538.             EITEM    WENTRYA_TextStyle
  539.             EITEM    WENTRYA_TextSStyle
  540.             EITEM    WENTRYA_TextString
  541.             EITEM    WENTRYA_TreeParentNode
  542.             EITEM    WENTRYA_TreeChilds
  543.             EITEM    WENTRYA_TreeString
  544.             EITEM    WENTRYA_TreePen
  545.             EITEM    WENTRYA_TreeSPen
  546.  
  547. WNE_TEXT        EQU    1
  548. WNE_TREE        EQU    3
  549.  
  550.             ENDC
  551.